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PREFACE 



This manual documents the Ridge Pascal language, which is based on 
the standard language as defined by Jensen and Wirth in the Pascal 
Uslr Manual and Report." The Ridge language shares various 
modifications to the base language, including traditional 
improvements to case statements, character synonyms, comments, and 
declarations, with other Pascal implementations. These and other 
changes arose from the desire for performance trade-offs and the 
need to meet implementation requirements, creating a language 
suitable for production. 

Since a knowledge of Pascal on the part of the reader is assumed, 
the differences between the Jensen-Wirth language and the Ridge 
language are documented in this manual but not the Pascal language 
in its entirety. 

This manual is divided into three sections: 
o Ridge Pascal Language Notes 
o The Pascal Runtime Environment 
o An Example 

The first section describes Ridge Pascal by listing the differences 
between it and the Jensen-Wirth language. Topics are arranged 
alphabetically. 

The second section describes the Pascal runtime environment. Much 
of this information is pictorial: memory diagrams are provided that 
illustrate the relationships among the various components of a 
Pascal user process running under the Ridge Operating System (ROS) . 

The third section gives an example of how to write an assembly 
language routine that can be called by a Pascal program. 
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SECTION 1 
RIDGE PASCAL LANGUAGE NOTES 

INTRODUCTION 

This section describes the Ridge Pascal language by citing the 
differences between it and standard Pascal (as defined in Kathleen 
Jensen and Nicklaus Wirth's "Pascal User Manual and Report"). 

The reader is referred to the Jensen/Wirth book, second edition, 
Springer-Verlag, 1975, for a detailed discussion of the base 
language. 

The following list gives an overview of where Ridge Pascal differs 
from standard Pascal. The list is in alphabetical order for easy 
reference, and each item is explained in detail in the remainder of 
this section. 

o Case Statements 

o Character Synonyms 

o Comments 

o Compiler Options 

o Declarations 

o External Procedures and Functions 
o Files 

o EOF and EOLN 
o File Manipulations 
o OpenFile 
o CloseFile 
o FileStatus 

o File Types 
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o GET 
o PUT 
o READ 
O RESET 
O REWRITE 

o Standard Predefined Files 
o WRITE 

o GOTO Statements 

o Identifiers 

o Mixed Mode Expressions 

o Numbers 

o Integers 

o Reals 

o PACKED Types 
o PACK and UNPACK 

o Procedures and Functions as Parameters 
o Reserved Words 
o String Literals 
o Strings 

o How to use 

o NewString 

o Types 
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LISTING OF DIFFERENCES 



Case Statements 

In standard Pascal, if there is no case label equal to the value of 
the case expression, the action of the case statement is undefined, 
in Ridge lascal, however, the statement immediately following the 
case statement is selected for execution. 

The case statement has an optional "otherwise" "Be label. The 
reserved word "otherwise" may be affixed to the last case 
alternative rather than a case label, causing control to be 
?ransferred to this last alternative in the event of no prior match 
with other case labels. 



Character Synonyms 

The follwing character synonyms are recognized by the Ridge Pascal 
compiler : 

o "I" can be substituted for "or", 
o "&" can be substituted for "and", 
o "~" can be substituted for "not". 



Comments 

In Ridge Pascal, the symbols "(*" and "*)" may be used to delimit 
cSmmenK; the standard symbols "{" and "}" may also be used. 
Commit delimiters must be matched; that is, if a command Bt arts 
with "{", then it must end with "}"; if it starts wxtn i , men 
it must end with "*)". Comments having the the same delimiters may 
not bf nested. All text appearing between delimiters is ignored by 
the compiler; however, if the first symbol after the first 
delimiter is "$", the comment is interpreted as a compiler option 
(see Compiler Options) . 
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Compiler Options 

Compiler options are communicated to the compiler via special 
comments (see Comments) . The following compiler options are 
recognized by the Ridge Pascal compiler when they follow a "$" at 
the beginning of a comment: 

o The "E" (eject) option controls pagination of the source 
listing. The effect is that the next source line will 
appear at the top of a new page. 

o The "G" option controls the starting address of the 
(static) outer block variables. This option must appear 
before the "program" declaration. The "G" option implies 
absolute addressing as opposed to relocatable addressing 
(see the "R" option) . 

o The form of the "G" option is "G<n>" where 
"<n>" is a decimal integer. For example, 
"G16384" would cause the compiler to start 
allocating global variables at 16K. 

o The default is "G4096". 



o The "L" option is for source listing control. This 
option may appear anywhere in the source program. 

o "L+" turns the listing on. 

o "L-" turns the listing off. 

o "L+" is the default. 



o The "0" option instructs the compiler whether or not to 
optimize the object code. 

o "0+" produces optimized object code. 

o "0-" produces unoptimized object code. 

o "0+" is the default. 
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o The "P" option controls the packing of data. It informs 
the compiler that it should pack data closely , which 
saves data space but increases execution time. See tne 
RunUme Environment section for information about the 
layout of data and the effect of packing. This option 
must appear before the "program" declaration. 

o "P+" causes data to be tighty packed. 

0 "p_" causes nonpacking of data. 

o "P-" is the default. 

o The "R" option causes the compiler to generate code in 
which the outer block variables are allocated in a 
relocatable segment rather than being assigned to 
absolute addresses. This option thus facilitates the 
construction of a program consisting of a number or 
separate ^mpilations? With this type of construction, 
the user will not be burdened with assigning starting 
addresses for the separate compilations' outer block 
variables since the linker will perform this task. 

Accessinq relocatable outer block variables generally 
ctuall a 9 slight performance decrease in comparison to 
accessing ablolute outer block variables. The reason for 
?he Increase is that an extra instruction must be 
executed to determine the base of the separate 
relocatable compilations' outer block variables. 

The "R" option must appear before the "program" 
fceclaration. Additionally,, it is mutually ^xclusive^with 

the 
(str 

the "R" is pr 

appear in the same compilation. 
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o "R+" enables relocatable addressing of global 
variables. 

o "R-" disables relocatable addressing of global 
variables, i.e., causes absolute addressing. 

o "R-" is the default. 



o The "S" option controls the starting address from which 
string constants will be allocated downwards (towards 
lower addresses). The "S" option implies absolute 
addressing as opposed to relocatable addressing (see the 
"R" option) . This option must appear before the 
"program" declaration. 

o The form of the "s" option is "S<n>" where 
"<n>" is a decimal integer. 

o "SO" is the default. 



Declarations 

LABEL , CONST, and TYPE declarations may appear in any order and may 
be repeated. However, as in standard Pascal, they may not appear 
after the first variable, procedure, or function declaration in the 
current block. 



External Procedures and Functions 

The "external" attribute is supported for procedures and functions. 
It is similar to the "forward" attribute in that it tells the 
compiler that only a procedure heading appears at this point. 
However, unlike the "forward" attribute which indicates that the 
body will appear later in the compilation, the "external" attribute 
indicates that the body has been compiled separately inside another 
program and will not appear in this compilation. The name of the 
"external" procedure will be passed on to the linker, which will 
resolve the reference at link time. 

The names of all procedures and functions are considered global and 
may be referenced by other separately compiled programs. 
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Files 



EOF (f ) and EOLN(f). EOLN is defined as EOF or (f 
chr 13)), where "chr(13p is the ASCII carriage return. 
Return characters are not, as in standard P^ 0 *;!:' 
converted to blanks. Nor, unlike standard Pascal, is eof 
defined until after the first GET operation. 



o File Initialization 

All file variables except the predefined variables 
"input", "output", and "stderr" must be explicitly 
opened. There are three file manipulation routines for 
this purpose, which, since they are not predefined, must 
be declared as "external." For more information on these 
routines, see the Ridge "Operating System Reference 
Manual." The declarations for the routines are as 
follows (the string type is described later): 

Procedure OpenFile( 

var f:Text ; 

name: String ; 

mode: Char 
) ; External; 
Function FileStatus (var f -.Text) : Integer ;External ; 
Procedure CloseFile (var f :Text) ;External; 



o The function of procedure "OpenFile" is to take 
a Pascal file variable and bind it to the ROS 
file indicated by the "name" argument. The 
argument "mode" must be either "R" for read 
access, "W" for write access, "A" for append 
access (writing at the end of a file) , or U 
for update access (reading or writing) . 

o The function "FileStatus" returns the value 
zero if no errors were encountered during any 
input/output operation on the file; otherwise, 
non-zero is returned. 

o The function of procedure "CloseFile" is to 
release the binding between the Pascal file 
variable, "f", and the ROS file. 
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o File Types. Only "Text" files (Text = File of Char) are 
currently supported. 

o GET must only be applied to open files, otherwise the 
results are undefined. The Ridge Pascal GET differs from 
standard Pascal in that the file buffer is not defined 
until the first GET is performed. This facilitates 
interfacing with interactive files. 

o PAGE outputs an ASCII form-feed, i.e., chr(12). 

o PUT must only be applied to open files. Ridge Pascal PUT 
performs as in standard Pascal* 

o READ (f , x) is defined as follows: 

begin 

GET ( f ) ; 

x := f A ; 
end 



while standard Pascal's READ (f , x) is defined as: 

begin 

x := £* ; 

get(f) ; 
end 



o RESET is recognized by the compiler but performs no 
operation at this time. 

o REWRITE is recognized by the compiler but performs no 
operation at this time. 

o Standard Predefined Files. 

The files "input", "output", and "stderr" are predefined 
in the sense that if they appear in the "program" 
declaration they will be opened automatically and bound 
to ROS file entities. Specifically, it will appear as if 
the following statements had been executed, in which 
"inputName" is a string variable containing the 
characters "input", "outputName" contains "output", and 
"stderrName" contains "stderr". 
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OpenFile( input, inputName, 'R') f 
penFile (output, outputName , 'W') ; 
OpenFile (stderr , stderrName, 'W') ; 



o WRITE performs as in standard Pascal. 

o WRITELN outputs an ASCII carriage return, i.e., chr(13) 



GOTO Statements 

GOTO statements may not transfer control out of the current block- 
jumping out of procedures or functions is not permitted. 



Identifiers 

Tripnt-if iers mav be of any length but only the first 16 characters 
ife nt sf g rificant: identiLers 9 which differ only af t- the sixteenth 
character position will be regarded as the same i^ifier. 
Identifiers must start with an alphabetic character (a letter) , but 
£hereaf£er may contain letters, digits, or underscores. Upper case 
characters are not distinguished from lower case characters in 
identifiers. 



Mixed Mode Expressions 



Ridae Pascal allows mixed mode expressions (e.g., INTEGER and 
REaE); however, a "var" parameter must be of the same type as the 
formal parameter. 

Numbers 

Integer constants in Ridge Pascal differ from standard Pascal in 
two respects: 

o The base (radix) may be specifed. 
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o Embedded u 
readability. 



underscores 



are 



allowed 



for 



improved 



A BNF description of the allowable forms follows: 



integer_number 



integer I based_integer ; 



integer 



digit {['_'] digit} 



based_integer 



base '#' extended_digit {['_*] 
extended_digit } ; 



base 



integer 



— base must be in 2.. 36 



extended_digit ::= letter | digit ; 



Here are some examples to illustrate based integers and the use of 
underscores to improve readability. 

40_96 
65_536 

2_147_4 83_647 (* MAX I NT *) 

-2_146_4 83_648 (* M IN INT *) 

2*11111111 
2#1111_1H1 
8#377 
16#ff 

10#2_147_4 83_647 



Ridge Pascal supports 32- and 64-bit real numbers, called REAL and 
DREAL respectively. A double real (DREAL) number is denoted in a 
fashion similar to the "E" notation except that a "D" or "d" is 
used instead. For example: 

pie = 3 .1415926535D0 
bignum = 1 .0D250 
maxreal = 6.8056464E38 
minreal = 5 .8774728E-39 
maxdreal = 3 .595386269724630D308 
mindreal = 1 .112536929253601D-308 
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PACKED Types 

T « Pascal the reserved word "PACKED" is accepted but has no 

erfect? To control storage allocation, the "P« compiler option is 
used (see Compiler Options) . 



PACK and UNPACK 

PACK and UNPACK are not currently supported by the Ridge compiler. 
Procedures and Functions as Parameters 

Ridge Pascal does not allow procedures or functions to be passed as 
parameters. 

Reserved Words 

Ridge Pascal t 
reserved words 
is "otherwise". 



psc^i treats upper and lower case characters identically in 
?eslrvel words" 5he only nonstandard reserved word in Ridge Pascal 



String Literals 

Character string literals may be a maximum of 80 characters in 
length. 



Strings 

tj^op Pascal does not have a predefined string type. However, the 
lltltl runtime iSary supports a string type via routines (these 
are more fully described in the Ridge "Operating System Reference 
Manual"). The following example illustrates how strings are 
currently manipulated. 

The example opens a file called "data.x," does some processing, and 
!l!n riSi the file. The procedures and functions in the Pascal 
runtime Ubrary accept and return strings as defined in the type 
declaration section* in the program The two-step method of 
allocating an empty string, and then copying the characters 
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one-by-one into the string, should be employed since string 
constants cannot be assigned directly to the string. 

Also, note that the procedures NewString, OpenFile, FileStatus, and 
CloseFile are not predefined, and must be declared as external 
procedures. 



Program Example (stderr) ; 
Type 

StringBody = Record 

length : Integer ; 
chars : Array [1..1] of Char ; 
end ; 

String = "StringBody ; 

Var 

CharArray : Array[1..6] of Char ; 
dataFile : Text ; 
fileName : String ; 
i : Integer ; 

Function NewString (lengths Integer) :String ; External ; 

Procedure OpenFile (var f:Text ; name:String ; mode:Char) ; External ; 

Procedure CloseFile (var f:Text) ; External ; 

Function FileStatus (var f:Text) ; Integer ; External ; 

begin 

CharArray := 'data.x' ; 
fileName := NewString (6) ; 
for i := 1 to 6 do 

f ileName". chars [i] := charArray[i] ; 
OpenFile (dataFile, fileName, 'R') ; 

if FileStatus (dataFile) <>0 then 

Writeln (stderr cannot open data.x 1 ) ; 



do some processing 



{ 
} 

CloseFile (dataFile) ; 
end. 
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Types 

Ridge Pascal differs from standard Pascal with respect to types in 
the following ways: 

o DREAL (double REAL) is defined in addition to REAL. 

« 5o fc ThP maximum number of set elements is limited to 
° tt S ■ i?\3SitiS5, the foilowing. restriction applies to 

the range of zero to 63 inclusive. 

The rules governing data allocation and storage alignment^ or 
variables of the va 
of the runtime envi 
option. The sect 
details on this subject 
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SECTION 2 
THE PASCAL RUNTIME ENVIRONMENT 



INTRODUCTION 

This section provides a fairly detailed picture of the environment 
In which Pascal programs perform their computations. Enough 
information is given for the user to perform debugging using the 
bootstrap debugger, RBUG. 

The Ridae architecture maintains separate data and code spaces, and 
His separation forms the basic division of information in this 
section. The following topics are covered: 

o Data Segment Overview 

o Data Segment Memory Diagrams 
o Absolute Mode 
o Relocatable Mode 

o Stack Diagrams 

o The Mark stack Block 

o The Display 

o The Heap 

o Code Segment Overview 

o Code Segment Memory Diagrams 
o Preamble and Postamble Code 

o Procedure/Function Entry Code 

o Procedure/Function Exit Code 
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o Program Entry Code 
o Program Exit Code 



o Miscellaneous 

o Register Use Conventions 

o Procedure/Function Calling Conventions 

o Data Representation and Alignment Rules 



The following discussion assumes some familiarity with the Ridge 
architecture. Information on this subject can be found in the 
Ridge "Processor Reference Manual." 
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DATA SEGMENT OVERVIEW 



Data Segment Memory Diagrams 

The following two subsections provide information regarding the 
modes that affect memory storage: absolute and relocatable. 

ABSOLUTE MODE. Figure 1 gives an overview of the data segment of a 
Pascal user process when the compiler has been instructed to 
generate absolute addressing code (see Compiler Options) . The 
blocks are not necessarily to scale—there is a very large gap 
between the top of the stack and the bottom of the heap. 



FFFFFFFF 
(or $S) 



growth 




I 
I 

V 



heap 



(continued on next page) 
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I 
I 

I <■ 
-+ 

I 



R14 

(Stack Pointer) 



I I 
I I 
growth | 



$G or 4096 



stack 



outer block 
variables 



I 
I 

-+ 

I 

I 
I 
I 

-+ 
I 



R15 

(Frame Pointer) 



I I 
+ • + 

I I 
I Pascal RTL | 
I data I 
280 | I 
+ + 

I I 

I I 
+ + 

144 I ////////////// I stderr file buf | "stderr"" at 148 

+ + 

136 I ////////////// I output file buf | "output"" at 140 

+ + 

128 I ////////////// I input file buf | "input"" at 13 2 

+ + 



I I 
+ + 

64 | heap pointer | 
+ + 

63 I I 
I display I 
00000000 | I 
+ + 

Figure 1. Data Segment: Absolute Mode 
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RELOCATABLE MODE. Figure 2 gives an overview of the data segment 
of a Pascal user process when the compiler has been instructed to 
generate relocatable addressing code (see Compiler Options) . 



FFFFFFFF 



growth 



I 



growth 
$STACK 



4096 



heap 



stack 



$DATA and $STRING 
sections 



< R14 

(Stack Pointer) 



< R15 

(Frame Pointer) 



-+ 
I 



(continued on next page) 
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280 



+- 

I 
I 



+- 

I 

I 



Pascal RTL 
data 



■+ 

I 
I 
I 
I 

■+ 



144 


I//////////////I stderr 


file 


buf 


136 


I//////////////I output 


file 


buf 


128 


I//////////////I input 


file 


buf 




+ 

1 

1 






64 


+ 

I heap pointer 






00000000 


+ 

1 

1 

+ 







"stderr"" at 148 
"output"" at 140 
"input"" at 132 



Figure 2. Data Segment: Relocatable Mode 
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Stack Diagrams 

The Pascal runtime stack expands and contracts as procedures are 
entered and exited. Each time a procedure is invoked, it allocates 
a new piece of storage, called a stack frame, on top of the stack 
for its local variables, context information, parameters, and 
temporaries. 

Figures 3 through 6 represent snapshots of the stack at four 
significant times in a procedure: 

o Normal execution of some arbitrary procedure, "p". 

o Preparing for a call to another procedure, "q". 

o Entering procedure "q" . 

o Back in procedure "p". 



I 

I 

stack 
growth 



+ + 

local storage for 
for "p" 

+ + 

mark stack block 
for n p" 

+ //////////////////////////////// 
WWWWWWWWWWWWWWWW 
//////////////////////////////// 



R14 

(Stack Pointer) 



R15 

(Frame Pointer) 



Figure 3. Normal Execution of a Procedure "p" 



In Figure 3, some arbitrary procedure "p" is executing. R15, the 
Frame Pointer, points to the start of the stack frame for procedure 
"p". All of "p"s references to local data are based on the Frame 
Pointer . 
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R14 + 32 
R14 + 24 



stack 
growth 



I 
I 
I 

I 

, + 

parameter y I 
. . + 

parameter x I 

///////////////////////////////A 

WWWWWWWWWWWWWWWW I <• 
+ 

I 

local storage for I 
for "p" I 

+ 

mark stack block I 

for "p" I <• 
+ 

////////////////////////////////I 
WWWWWWWWWWWWWWWWI 

////////////////////////////////I 

I 



R14 

(Stack Pointer) 



R15 

(Frame Pointer) 



Figure 4. Procedure "p" Preparing to Call Procedure "q" 



In Figure 4 f procedure "p" is now preparing to call procedure 
"q(x, y) " by pushing the parameters onto the stack. The Stack 
Pointer, R14, does not actually move at this time; rather, the 
parameters are pushed starting at R14+24, thus leaving a gap for 
"q"s mark stack block. 
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< R14 

(Stack Pointer) 



local storage for 
for "q" 



R15 + 32 
R15 + 24 



stack 
growth 



parameter y 



parameter x 



mark stack block 
•q« 



for 



local storage for 
for "p n 



mark stack block 
for "p" 



//////////////////////////////// 
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\W 
//////////////////////////////// 



< R15 

(Frame Pointer) 



Figure 5. Entering Procedure "q" 



Figure 5 shows procedure "q" immediately after it has performed its 
entry code and the following events have taken place: 

o R15 <— R14 

o R14 < — R14 + <framesize> 

o The mark stack block is filled in. 

Notice that now "q" will refer to its parameters at "R15+24" and 
"R15+32," while the caller referred to them at n Rl4+24" and 
"R14+32." 
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I 
I 

stack 
growth 



+ + 

local storage for 
for 11 p" 

+ + 

mark stack block 
for "p" 

//////////////////////////////// 
WWWWWWWWWWWWWWWW 

//////////////////////////////// 



R14 

(Stack Pointer) 



R15 

(Frame Pointer) 



Figure 6. Return to Procedure "p" 



Figure 6 shows the stack on return from "q" . The stack has been 
returned to the state it was in just prior to the call to "q" . 

If "q" had been a Pascal function, then register RO (or the 
register pair (RO, Rl)) would contain the function value. 



The Mark Stack Block 

The function of the mark stack block is to store information 
concerning procedure and function invocations. The mark stack 
block, therefore, makes it possible to restore the runtime 
environment when a procedure or function returns to its caller. 

Figure 7 shows the format of the mark stack block. 



-30- 



Ridge Pascal 



Reference Manual 



+ + 



R15 + 20 I 2nd word of function result I 

+ + 

R 15 + 16 | 1st word of function result j 

R15 + 12 !//////////// unused //////////// I 

+ + 

R15 + 8 I Old R15 (Dynamic Link) I 

+ + 

Rl5 + 4 | Old Static Link I 

+ + 

pi c + 0 I Old Rll (Return Address) I < R15 

Rlb + u | _„ + (Frame Pointer) 

Figure 7. The Mark Stack Block Format 



The Display 

The display is a sixteen word block which starts at location 
Figure 8 shows the format for the display block. 



60 


1 


Current 


Context 


for 


Level 


17 


1 




1 
1 












1 
1 


4 


1 


Current 


Context 


for 


Level 


3 


1 


0 


1 


Current 


Context 


for 


Level 


2 


1 



Figure 8. The Display Block Format 



When the compiler has been directed to generate absolute addressing 
code/the display resides at absolute virtual location zero. If 
the compiler il generating relocatable code, then the display 
resides at location zero relative to the $DATA section. 
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The Heap 



In the case of relocatable addressing, the heap starts at the top 

of the data segment and grows down towards the lower addresses; in 

the case of absolute addressing, it starts near the top and grows 

down. The allocation strategy can be described as follows: 

o First, if the number of bytes asked for is "b", then 
round up "b" to the nearest value such that (b mod 8) » 
0. This ensures double word alignment for items that 
follow it. 



o Second, if (b mod 4096) = 0 (i.e., requesting a multiple 
of pages) , then align the allocated block on a page 
boundary. If (b mod 4096) <> 0, then the requested block 
will only be aligned on a double word boundry. 
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CODE SEGMENT OVERVIEW 



Code Segment Memory Diagrams 

For the purposes of discussion we will assume the following 
program, "test." A source program compiled by the Pascal compiler 
is referred to as a "compilation unit." 



Program test ( ... ) ; 

Procedure a( ... ) ; 
begin { of a } 

• • * 

end ; { of a } 

Procedure b( ... ) ; 

Procedure c( ... ) ; 

Procedure d( ... ) ; 
begin { of d } 

• • • 

end ; { of d } 
begin { of c } 

• • • 

end ; { of c } 
begin { of b } 

• • • 

end ; { of b } 

Procedure e( ... ) ; 
begin { of e } 

• t • 

end ; { of e } 

begin { of test } 

end' : { of test } 

Figure 9 shows how the code segment 
look, and represents the output 
begins at location zero. 



corresponding to "test" would 
of one compilation. Execution 
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00000000 



+ + 

Preamble Code to set up R14, | 
R15, and the Heap Pointer. j 
Branch to $MAINBLK. | 



$MAINBLK: 



Code for a 



Code for d 



Code for c 



Code for b 



Code for e 



Code for test 



I 



I 
I 

•+ 

I 
I 

-+ 



-+ 
I 
I 
I 

-+ 

I 



I 



WWWWWWWWWWWWWWWWI 

////////////////////////////////I 

WWWWWWWWWWWWWWWWI 

////////////////////////////////I 



Figure 9. Code Segment 



The code segment of a running user process is usually composed of 
several compilation units which have been consolidated by the 
"link" program. Figure 10 shows the overall structure of the code 
segment of a user process. 
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+ + \ 

00000000 I preamble code I \ 

+ + \ 

I I \ 

I procedure/function code I > from "filel" 

I I / 

+ + / 

$MAINBLK: I "main" program code I / 

+==== ========= ===== ===+ \ 

I preamble code I \ 

+ + \ 

I I \ 

I procedure/function code I > from "file2" 

I I / 

+ + / 

$MAINBLK | "main" program code I / 

+======================«========+ \ 

I preamble code I \ 

+ + \ 

I I \ 

| procedure/function code I > from "file3" 

I I / 

+ + / 

$MAINBLK | "main" program code I / 

+ + / 

Figure 10. Overall Code Segment Structure 



Note the following points: 

o "link filel file2 file3" was the command used to produce 
the illustrated process. 

o Since the operating system passes control to the user 
process at location zero, execution will start at the 
"main" program in "filel." 

o The preamble code for "file2" and "file3" is never 
executed. 
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Preamble and Postamble Code 

The Pascal compiler generates code prior to the "begin" and after 
the "end" of a program, procedure, or function. This code performs 
such miscellaneous housekeeping tasks as stack adjustments and 
parameter manipulations. This section explains this code. 

The code which follows is meant to be interpreted as a "macro" 
notation. The code in the boxes is generated per the Pascal-like 
compile-time instructions. For example: 



FOR I := 1 TO 3 DO 

+ + 

I ADD R0 f R0 I — double RO 

+ + 

The above "macro" code would cause the instruction "ADD R0,R0" to 
be generated three times. 



IF <condition> THEN 

+ + 

I <some code> I 
+ ■ + 

ELSE 

+ + 

I <some other code> I 
+ + 

TRUE; otherwise, "<some other code>" would be generated. 

in general, the "conditions" of the "macros" refer to attributes of 
the current program, procedure, or function being compiled. 
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PROCEDURE/FUNCTION ENTRY CODE. The following code is generated 
when a "begin" for a procedure or function is encountered. 



IF there are calls THEN 

+ + 

| STORE R11,R14,0 I 
+ ■ + 

IF there are no calls or loops THEN 

+ + 

| MOVE R12,R15 ! 
+ + 

ELSE 

+ + 

| STORE Rl5,Rl4 f 8 I 
+ + 

IF it's an intermediate level 

procedure THEN 

IF absolute mode addressing THEN 
+ + 

| LOAD RlO f 4* (level-1) I 
I STORE R10,R14,4 I 
| STORE R14, 4* (level-1) I 
+ + 

ELSE 

+ + 

| LADDR R8 f $DATA,L I 
| LOAD R10,R8, 4* (level-1) 
| STORE R10,R14,4 I 
| STORE R14,R8, 4* (level-1) 

+ + 

IF absolute addressing OR 

static level is not 1 THEN 
+ + 

| MOVE R15,R14 I 
| LADDR R14,Rl4,size I 
+ + 



— store return address 



save dynamic link 
in R12 



save dynamic link 
in stack 



— update the display 



load old static link 
store it in the stack 
store new static link 



load address of $DATA 
load old static link 
store it in the stack 
store new static link 



allocate local stack 
frame 

R15 < — frame pointer 
allocate stack frame 
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FOR i := 1 TO number_of_parameters DO 
IF non-VAR array or record THEN 
+ , + 

LADDR Rx r Rl5 f disp 
LOAD Ry,R15,disp 
LADDR R8 f -(byte_count) 
LOADB R9,Ry,0 
STOREB R9,Rx,0 
ADDI Ry,l 
ADDI Rx f l 
LOOP R8,l,*-12 
+ ■ + 



copy "value" para- 
meters into local 
stack frame 
load dst address 
load src address 
# of bytes to copy 
load a byte 
store a byte 
increment src pointer 
increment dst pointer 
increment and loop 



In the code which manipulates the static link r the "level" refers 
to the textual level number of this procedure. The main program is 
considered level one; procedures which are declared at the program 
level are at level two; procedures inside these are considered 
level three; etc. 



PROCEDURE/FUNCTION EXIT CODE. The following code is generated when 
an "end" for a procedure or function is encountered by the 
compiler. 

IF it's a function THEN — load function value 

+ + 

I LOAD R0,R15 f 16 I — load first word 

+ + 

IF it's a two word value THEN 

+ + 

I LOAD R1,R15,20 | — load second word 

+ + 



IF it's an intermediate level 

procedure THEN 
IF absolute mode addressing THEN 
+ 



ELSE 



— restore the display 



LOAD 


R10,R15,4 


— + 
1 


— load old static link 


STORE 


R10 f 4*(level-1) 


1 

— + 


— store it the display 


LADDR 


R8,$DATA,L 


— + 

1 


— load address of $DATA 


LOAD 


R10 f R15,4 


1 


— load old static link 


STORE 


RIO, R8, 4* (level- 


-1) 
— + 


— store into the display 
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IF there were calls THEN 

!"lOAD~"r1i"r15^0 ! - load return address 



+ + 



{ always do this } 

I'mOV^'r^'rIS I — deallocate stack frame 



+ + 



IF there were no (calls or loops) THEN -- restore old R15 
+ + 

I MOVE R15,R12 I — ... from R12 

+ + 



ELSE 



+ + 

I LOAD R15,R15,8 I — ... from stack 



+ + 



{ always do this } 

!~RET RIi'rII I " return to caller 



+ + 



For an explanation of "level" see the preceding section on 
Procedure/Function Entry Code. 
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PROGRAM ENTRY CODE. The first three boxes of code are generated 
when the compiler encounters the "program" declaration. Then at 
"$MAINBLK", in response to the "begin" of the main program, the 
standard Procedure/Function Entry Code is generated, followed by 
code which is particular to the main program. 



IF absolute addressing mode THEN 



ELSE 



LADDR 


R10,$HEAP 


STORE 


R10,64 


MOVE I 


R14,0 




LADDR 


R14,$STACK,L 


MOVE I 


R10,0 


STORE 


RIO, 64 



load heap start address 
store into heap pointer 
initialize R14 



initialize stack pointer 
RIO <- 0 

initialize heap pointer 



{ always do this } 

+ + 

I MOVEI R15,0 | 

I BR $MAINBLK | 
+ + 



initialize frame pointer 
branch to main program 



Code for all local procedures/functions goes here 



$MAINBLK! 



I Proc/Func Entry Code 



— do the same as for 
procedures 



IF absolute addressing mode THEN 

+ + 

I MOVE R15,R14 | 

I LADDR R14,R14,size | 
+ + 



initialize frame pointer 
allocate outer block 
variables 



{ always do this } 

+ + 

I CALL Rll , SYS ENTRY | — initialize Pascal RTL 

+ + 
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IF standard "input" file present THEN 

!~7an™TRx"l32~ I — load file buffer address 

STORE £:ill,24 I - store file buffer address 

I CALL R11,FDF I — open the fxle 

+ + 

IF standard "output" file present THEN 

t~rAnnR~Rx~140~ I — load file buffer address 

STORE S;il4,24 I - store file buffer address 

| CALL Rll f FDF I ~ open the file 

+ + 

IF standard "stderr" file present THEN 

l~i"AnnR~Rx~148 I ~ load file buffer address 

S S:SiS,24 I " store file buffer address 

| CALL Rll, FDF I ~ open the file 

+ + 

PROGRAM EXIT CODE. The compiler generates the following code when 
it encounters the "end" of a main program. 

{ always do this } 

l~MOVEI~Rx~<r"^ I — (^successful completion 
| STORE Rx,Rl4,24 I ~ store RO e YqpXTT 
I CALL R11,SYSEXIT I — program stops, SYSEXIT 
+ doesn't return 

+ + 

I proc/func exit code I ~ same as standard exit 

|_1 + code 
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MISCELLANEOUS 

This section discusses miscellaneous runtime issues that do not fit 
readily into one of the preceding categories. These include 
register use conventions, procedure/function calling conventions, 
and data representation and alignment rules. 

Register Use Conventions 

RO \ 

Rl \ 
R2 \ 

R3 \ register stack to 

R4 / evaluate expressions 

R5 / 

R6 / 

R7 / 

R8 \ 

R9 > scratch registers 

RIO / 

Rll return address register 

R12 \ "with" and "for" temporaries 

R13 / 

R14 Stack Pointer 

R15 Frame Pointer 



RO (or the register pair (RO, Rl) ) is also used to return the 
result of a function call. 



Procedure/Function Calling Conventions 

The general rules for a procedure or function call are as follows: 
p(pl, p2, . .. , pN) 
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o Evaluate parameter 1. Store it at R14,24. 
o Evaluate parameter 2. Store it at R14,3 2. 
o Evaluate parameter N. Store it at R14 , 24+ (N-l) *8 

The process of evaluating a parameter entails the following: 

o Code is generated to evaluate the parameter expression. 

o Depending on whether or not the corresponding formal 
parameter is a "var", there are two cases: 

o "var". In this case the parameter's ADDRESS is 
stored at R14 , 24+ ( j-1) *8, where j is the 
parameter number , 1 O j <= N. 

o Non-"var". This case is broken down into two 
subcases depending on whether the actual 
parameter is an array or a record. 

o The actual parameter is an array or a 
record. Pass the ADDRESS as 
described above. 

o The actual parameter is neither an 
array nor a record. The VALUE of the 
parameter is passed. 



If "p" is a Pascal function (as opposed to a procedure) then the 
caller will expect to find the function value in either register RO 
(or the register pair (R0,R1). 



Data Representation and Alignment Rules 

The compiler packing option "P+" or "P-" controls the amount of 
storage allocated to a variable of the following standard types: 

o BOOLEAN: One byte if "P+", four bytes if "P-". 

o CHAR: One byte always. 
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o DREAL: Eight bytes always. 

o Enumerated Types: the minimum number of bytes depends on 
the number of identifiers in the type: 

o One byte for 1 to 255 elements. 

o Two bytes for 256 to 65,535 elements. 

o Four bytes for more than 65,535 elements. 

o FILE or TEXT: Eight bytes always. The last byte, i.e., 
the one with the highest address, is the file variable 
"f"". 

o INTEGER: Four bytes always, 
o POINTER: Four bytes always, 
o REAL: Four bytes always, 
o SET: Eight bytes always, 
o Subranges: 

o If the packing option is set to "P-" then all 
subranges occupy four bytes. 

o If the packing option is set to "P+" then the 
minimum number of bytes is used. This depends 
on the lower and upper bounds of the subrange, 
as the following explains: 

o Negative lower bound always results 
in four bytes. 

o Lower bound of zero or more results 
in the following: 

o Upper bound of 1 to 255 
results in 1 byte. 

o Upper bound of 256 to 
65,535 results in 2 bytes. 

o Upper bound that is more 
than 65,535 results in four 
bytes. 
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The rules for Ridge Pascal data alignment are as follov 

o Half-word items must be aligned on a half-word 
boundary, i.e., their addresses must be evenly 
divisible by two. 

o Word items must be aligned on a word boundary, 
i.e., their addresses must be evenly divisible 
by four. 

o Double-word items must be aligned on a 
double-word boundary, i.e., their addresses 
must be evenly divisible by eight. 



To optimize use of space, the preceding rules should ^observed 

For example, in declaring variables (or fields in a record) tne 

«der " the items may have an impact on the total amount of 
storage used. 

ch : Char ; { 1 byte data } 

i : Integer ; { 3 bytes padding, 4 bytes data } 

b : Boolean ; { 1 byte data } 

d : Dreal ; { 7 bytes padding, 8 bytes data } 

k : 1..1000 ; { 2 bytes data } 



Storage would be used more efficiently if the items were arranged 
as follows: 

ch : Char ; { 1 byte data } 

b : Boolean ; { 1 byte data } 

k : 1..1000 ; { 2 bytes data } 

i : Integer ; { 4 bytes data } 
d : Dreal ; { 8 bytes data } 
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Declarations of the following sort are also inefficient: 

a : Array [1. .100000] of Integer ; 
ch : Char ; 

• • • 

• • • 

i : Integer ; 

An improvement would be to declare the large array last, then short 
offsets could be used in the code that accesses M ch" f "i", and 
other scalar variables. Refer to the "Ridge Processor Reference 
Manual" for more information on this topic. 
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SECTION 3 
AN EXAMPLE 



INTRODUCTION 

This section illustrates how to write assembly language programs 
tha? are Pascal callable. A program written in Ridge Pascal can be 
compiled into an intermediate form called P-code by the Ridge 
Pascal compiler, "pasc." The P-code can then ^translated x nto an 
nhiect module by the translator, "ptrans," and finally linKect witn 
other obiect modules by the linker, "link." (For more information 
on the compiling Process, see the Ridge "Operating System Reference 
Manual. ") 

included in this section are the listings for four files: 

o The command file which compiles, assembles, and links the 
program. 

o The Pascal source listing of the main program. 

o The assembler listing of the compiler's generated code. 

o The assembler listing of the called routines. 



The key items to be observed are: 

o how the assembler programs are declared in the Pascal 
program as "external" functions, 

o how the assembler programs access their parameters and 
how they return their values, 

o that Pascal compilation is a two step process involving: 

o running the Pascal compiler, "pasc" whose input 
is "example. s" and whose outputs are 
"example. 1" and "example. p" , 

o running the P-code translator, "ptrans" whose 
input is "example.?" and whose outputs are 
"example. a" and "example. o". 
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COMMAND FILE LISTING 



pasc -1 example. 1 example. s 
ptrans -1 example. a example. p 
rasm -1 asmfuncs.l asmfuncs.s 

link -1 example. 11 example. o asmfuncs. o /lib/rtl.o 



PASCAL SOURCE LISTING 



{$A+} 
{ 

This program reads real numbers and computes 
their square roots using Newton's method. Two assembler 
language routines are called to manipulate parts of the 
real numbers. 

The routines are part of a suite of routines defined 
in the book "Software Manual for the Elementary Functions" 
by Cody and Waite, Prentice-Hall (1980). 

} 

program example (input , output) ; 
var 

z : real ; 

iterations : integer ; 

{ 

'intxp' returns the unbiased exponent of ' x'. 

} 

function intxp (x : real) : integer ; external ; 
{ 

'setxp' returns a real number whose mantissa is 
that of 'x' and whose exponent is 'n'. 

function setxp (x : real ; n s integer) : real ; external ; 
{$E} 

function sqroot(x : real) : real ; 
label 99 ; 
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const 

EPSILON = 1.0E-30 ; 

var 

i : integer ; 

yn, ynminusl : real ; 

begin {******* begin of function sqroot *******} 

iterations := 0 ; 
if x = 0.0 then 

sqroot := 0.0 
else 

begin 

if x < 0.0 then 

X S = — X J 

ynminusl := setxp(x, intxp(x) div 2) ; 
while TRUE do 
begin 

yn := (ynminusl + x/ynminusl) / 2.0 ; 

iterations := iterations + 1 ; 

if abs(yn - ynminusl) <= EPSILON then 

goto 99 ; 
ynminusl := yn ; 
end ; 
99: sqroot := yn ; 
q nd * 

end ; {******* end of function sqroot *******} 

begin {******* begin of program example *******} 

while not eof ( input) do 
begin 

readln (input , z) ; 

writeln (output, ' sqroot (', z, ') = sqroot(z) , 

' , iterations - iterations) ; 

end ; 

end. {******* end of program example *******} 



ASSEMBLER LISTING OF MAIN PROGRAM 



SOURCE LINE 41SL=P, ABS_AD=T, $S=0 

00000000 DEA0FPFFFFFF LADDR R10,-l 

00000006 A6A00040 STORE R10 ,64 

0000000A 11E0 MOVEI R14,0 

0000000C 11F0 MOVEI R15,0 
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OOOOOOOE 


9B00FFFFFFFF 


BR 


$MAINBLK 


SQROOT: 








00000014 


A7BE0000 


STORE 


Rll f R14,0 


00000018 


A7FE0008 


STORE 


R15,R14,8 


0000001C 


01FE 


MOVE 


R15,R14 


0000001E 


DFEEFFFFFFFF 


LADDR 


R14 f R14,-l 


00000024 


1100 


MOVE I 


R0,0 


00000026 


A6001004 


STORE 


R0,4100 


SOURCE LINE 42 






0000002A 


C71F0018 


LOAD 


R1,R15,24 


0000002E 


1120 


MOVE I 


R2,0 


00000030 


8A1 2FFFF 


BR 


RK>R2,E3 


SOURCE LINE 44 






00000034 


1130 


MOVE I 


R3,0 


00000036 


A73F0010 


STORE 


R3,R15,16 


0000003A 


8B00FFFF 


BR 


L4 


E3: 








SOURCE LINE 46 






0000003E 


1130 


MOVE I 


R3,0 


00000040 


2A13 


RCOMP 


Rl , R3 


00000042 


5510 


TESTLT 


R1,0 


00000044 


8E11FFFF 


BR 


RK>1,E5 


SOURCE LINE 47 








00000048 


C74F0018 


LOAD 


R4,R15,24 


0000004C 


2254 


RNEG 


R5 ,R4 


0000004E 


A75F0018 


STORE 


R5 f R15 f 24 


E5: 









L6: 

SOURCE 



LINE 4 8 



00000052 


C70F0018 


LOAD 


R0,R15,24 


00000056 


A70E0018 


STORE 


R0,R14,24 


0000005A 


CFEE0020 


LADDR 


R14,R14,32 


0000005E 


A70E0018 


STORE 


R0,R14,24 


00000062 


93B0FFFFFFFF 


CALL 


Rll, INTXP 


00000068 


0180 


MOVE 


R8 /R0 


0000006A 


5580 


TESTLT 


R8, 0 


0000006C 


0308 


ADD 


R0 ,R8 


0000006E 


7301 


ASRI 


R0 ,1 


00000070 


A70E0000 


STORE 


R0 ,R14,0 


00000074 


CFEEFFE0 


LADDR 


R14,R14,-3 


00000078 


93B0FFFFFFFF 


CALL 


R11,SETXP 


0000007E 


A70F0028 


STORE 


R0 f R15 f 40 


00000082 


01C0 


MOVE 


R12.R0 


ABLE AT 2 


,40 ASSIGNED TO REGISTER 12 


00000084 


C71F0018 


LOAD 


Rl,R15,24 


00000088 


01D1 


MOVE 


R13,R1 



VARIABLE AT 2,24 ASSIGNED TO REGISTER 13 
W7: 

SOURCE LINE 4 9 

SOURCE LINE 51 

0000008A 010C MOVE R0,R12 

0000008C 011D MOVE R1,R13 
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0120 
2612 
2310 

DE3040000000 
2613 

A71F0024 



7011 
7111 

DE500DA24260 
2A15 
5C10 

8E11FFFF 



A7DF0018 
8B00FFFF 



0000008E 
00000090 
00000092 
00000094 
0000009A 
0000009C 
SOURCE LINE 52 

000000A0 C6401004 
000000A4 1341 
000000A6 A6401004 
SOURCE LINE 53 

000000AA 2410 
000000AC 
000000AE 
000000B0 
000000B6 
000000B8 
000000BA 
SOURCE LINE 5 4 

O0O000BE A7CF0028 
000000C2 
000000C6 
E9: 
L10: 

SOURCE LINE 55 

000000CA C70F0024 
000000CE 01C0 

SOURCE LINE 56 

000000D0 8B00FFBB 

L8: 

OO0O0OD4 
000000D8 
X2 s 

SOURCE LINE 57 

000000DC C70F0024 
000000E0 A70F0010 

L4: 

SOURCE LINE 5 9 

000000E4 C70F0010 

000000E8 

000000EC 

000000EE 

000000F2 
SOURCE LINE 6 3 
$MAINBLK: 

000000F4 

000000F8 

000000FC 

000000FE 

00000104 

0000010A 

0000010E 



A7CF0028 
A7DF0018 



C7BF0000 
01EF 

C7FF0008 
57BB 



A7BE0000 
A7FE0008 
01FE 

DFEEFFFFFFFF 
93B0FFFFFFFF 
CE00008C 
A70E0018 



MOVE 


R2 f RU 


RDIV 


Rl ,R2 


RADD 


R1,R0 


LADDR 


R3 ,1073741824 


RDIV 


Kx t ft .3 


STORE 


Rl,R15,36 


LOAD 


R4,4100 


ADDI 


R4 f l 


STORE 


R4,4100 


RSUB 


Rl,R0 


LSLI 


Rl / 1 


LSRI 


Rl f l 


LADDR 


R5, 228737632 


RCOMP 


R1,R5 


TESTLE 


Rl,0 


BR 


KX % ? i. t 


STORE 


R12 f Rl5,40 


STORE 


Rl3,Rl5 f 24 


BR 




LOAD 


RO ,R15 f 36 


MOVE 


R12,R0 


BR 


W7 


STORE 


Rl2 f Rl5 f 40 


STORE 


R13,R15,24 


LOAD 


R0,R15,36 


STORE 


RO f R15,16 


LOAD 


R0,R15,16 


LOAD 


Rll f Rl5 f 0 


MOVE 


R14,R15 


LOAD 


Rl5,Rl5 f 8 


RET 


R11,R11 



STORE Rll,Rl4 f 0 

STORE R15 / R14,8 

MOVE R15,R14 

LADDR R14/R14,-! 

CALL Rll , SYS ENTRY 

LADDR R0,140 

STORE R0,R14 f 24 
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00000112 


93B0FFFFFFFF 


CALL 


Rll , FDF 


00000118 


CE100084 


LADDR 


Rl,132 


0000011C 


A71E0018 


STORE 


R1,R14,24 


00000120 


93B0FFFFFFF2 


CALL 


Rll, FDF 


W4: 








00000126 


CE000084 


LADDR 


R0,132 


0000012A 


C710FFFC 


LOAD 


Rl,R0,-4 


0000012E 


C7110000 


LOAD 


R1,R1,0 


00000132 


7811 


CSLI 


Rl f l 


00000134 


0181 


MOVE 


R8,R1 


00000136 


7811 


CSLI 


Rl f l 


00000138 


0918 


OR 


R1,R8 


0000013A 


1B11 


ANDI 


Rl f l 


0000013C 


8611FFFF 


BR 


Rl=l ,L5 


SOURCE LINE 65 






00000140 


CE200084 


LADDR 


R2,132 


00000144 


CE301000 


LADDR 


R3,4096 


00000148 


A72E0018 


STORE 


R2,R14 f 24 


0000014C 


A73E0020 


STORE 


R3,R14,32 


00000150 


93B0FFFFFFFF 


CALL 


Rll ,RDR 


00000156 


C70E0018 


LOAD 


R0,R14,24 


0000015A 


A70E0018 


STORE 


R0 ,R14,24 


0000015E 


93B0FFFFFFFF 


CALL 


Rll ,RLN 


SOURCE LINE 66 






00000164 


CE10008C 


LADDR 


Rl,140 


00000168 


CE20FFF8 


LADDR 


R2,-8 


0000016C 


DE807371726F 


LADDR 


R8,1936814703 


00000172 


A680FFF8 


STORE 


R8,-8 


00000176 


DE806F742827 


LADDR 


R8, 1869883431 


0000017C 


A6 80FFFC 


STORE 


R8 f -4 


00000180 


1137 


MOVE I 


R3,7 


00000182 


1147 


MOVE I 


R4,7 


00000184 


A71E0018 


STORE 


R1,R14,24 


00000188 


A72E0020 


STORE 


R2 f R14 r 32 


0000018C 


A73E0028 


STORE 


R3,R14,40 


00000190 


A74E0030 


STORE 


R4,R14,48 


00000194 


93B0FFFFFFFF 


CALL 


Rll f WRS 


0000019A 


C70E0018 


LOAD 


R0,R14,24 


0000019E 


C6101000 


LOAD 


Rl,4096 


000001A2 


11 2E 


MOVE I 


R2,14 


000001A4 


1130 


MOVE I 


R3,0 


000001A6 


A70E0018 


STORE 


R0,R14,24 


000001AA 


A71E0020 


STORE 


Rl ,R14,32 


000001AE 


A72E0028 


STORE 


R2 f R14,40 


000001B2 


A73E0030 


STORE 


R3,R14 f 48 


000001B6 


93B0FFFFFFFF 


CALL 


Rll f WRR 


000001BC 


C70E0018 


LOAD 


R0 f R14 f 24 


000001C0 


CE10FFF4 


LADDR 


Rl f -12 


000001C4 


DE8029203D20 


LADDR 


R8 r 689978656 


000001CA 


A680FFF4 


STORE 


R8 f -12 


000001CE 


1124 


MOVE I 


R2 f 4 


000001D0 


1134 


MOVE I 


R3 f 4 
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000001D2 
000001D6 
000001DA 
000001DE 
000001E2 
000001E8 
000001EC 
000001F0 
000001F2 
000001F6 
000001FA 
000001FE 
00000200 
00000202 
00000206 
00000208 
0000020C 
00000210 
00000214 
00000218 
0000021E 
SOURCE LINE 6 
00000222 
00000224 
00000228 
0000022C 
00000232 
00000236 
0000024C 
0000024E 
00000250 
00000254 
00000258 
0000025C 
00000260 
00000266 
0000026A 
0000026E 
00000270 
00000274 
00000278 
0000027C 
00000282 
00000286 
0000028A 
SOURCE LINE 6 
00000290 

L5 : 

SOURCE LINE 7 
00000294 
00000296 
0000029A 



A70E0018 
A71E0020 
A72E0028 
A73E0030 
93B0FFFFFFB2 
C70E0018 
A70E0000 
13E8 

C6101000 
A71E0018 
83B0FE1B 
111E 
1120 

C73EFFF8 
14E8 

A73E0018 
A70E0020 
A71E0028 
A72E0030 
93B0FFFFFF9E 
C70E0018 

7 

188F 

CE10FFE4 
E7980024 
B7 98FFFFFFF4 
8784FFF7 
8B000016 
112F 
113F 

A70E0018 
A71E0020 
A72E0028 
A73E0030 
93B0FFFFFF82 
C70E0018 
C6101004 
112C 

A70E0018 
A71E0020 
A72E0028 
93B0FFFFFFFF 
C70E0018 
A70E0018 
93B0FFFFFFFF 



8 



8B00FE97 



1100 

A70E0018 
93B0FFFFFFFF 



STORE 

STORE 

STORE 

STORE 

CALL 

LOAD 

STORE 

ADDI 

LOAD 

STORE 

CALL 

MOVE I 

MOVE I 

LOAD 

SUB I 

STORE 

STORE 

STORE 

STORE 

CALL 

LOAD 

NOT I 

LADDR 

LOADP 

STORE 

LOOP 

BR 

MOVE I 

MOVE I 

STORE 

STORE 

STORE 

STORE 

CALL 

LOAD 

LOAD 

MOVE I 

STORE 

STORE 

STORE 

CALL 

LOAD 

STORE 

CALL 

BR 



MOVE I 
STORE 
CALL 



R0 ,R14,24 

R1,R14,3 2 

R2,R14,40 

R3,R14 f 48 

R11,WRS 

R0,R14,2 4 

R0,R14,0 

R14,8 

Rl,4096 

R1,R14,24 

Rll,SQROOT 

Rl f 14 

R2,0 

R3 ,Rl4,-8 

R14,8 

R3,R14,24 

R0,R14,32 

Rl,Rl4 r 40 

R2,R14,48 

R11,WRR 

R0,Rl4 f 24 

R8,15 
Rl,-28 
R9,R8,3 6 
R9,R8,-12 
R8,4,*-10 

R2,15 

R3,15 

R0,R14,24 

Rl,R14 f 32 

R2,R14,40 

R3,R14,48 

Rll,WRS 

R0,R14,24 

Rl,4100 

R2,12 

R0,R14,24 

R1,R14,32 

R2,R14,40 

Rll,WRI 

R0,R14,24 

R0 ,R14,24 

Rll f WLN 

W4 



R0,0 

R0,Rl4 f 24 
R11,SYSEXIT 
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000002A0 C7BF0000 LOAD R11,R15,0 

000002A4 01EF MOVE R14,R15 

000002A6 C7FF0008 LOAD R15,R15 f 8 

000002AA 57BB RET R11,R11 

NUMBER OF BYTES OF CODE GENERATED = 684 



ASSEMBLER LISTING OF CALLED ROUTINES 



$HEXOUT 



INTXP: 



function intxp(x : real) : integer ; 

INTXP returns the unbiased exponent of the given 
argument, i.e. returns (exponent - 127) . 



input : R14,24 
output: RO 
GLOBAL INTXP 



LOAD 

CSLI 

LADDR 

AND 

LADDR 

SUB 

RET 



R0 f R14,24 

R0,9 

R1,0FFH 

RO ,R1 

R0,127 

R0,R1 

Rll f Rll 



— x 

— the answer 



;R0 <- REAL NUMBER, I.E., LOAD x 
; SHIFT EXPONENT INTO POSITION 
;LOAD MASK 

;MASK OUT MANTISSA AND SIGN BIT 
;LOAD EXPONENT BIAS 
;UNBIAS EXPONENT 
; RETURN TO CALLER 



SETXP: 



function setxp(x : real ; n : integer) : real ; 
SETXP returns the real whose mantissa is that of x 



and whose exponent is n. 




input : 


R14,24 


— X 




R14,32 


— n, unbiased exponent 


output : 


RO 


— the answer 


GLOBAL 


SETXP 




LOAD 


R0,R14,24 


;R0 <- REAL NUMBER, I.E., 


LADDR 


Rl ,0807FFFFFH,L 


;LOAD MASK 


AND 


R0,R1 


; CLEAR EXPONENT 


LOAD 


R1,R14,32 


;LOAD EXPONENT, I.E. LOAD 


LADDR 


R2,127 


;LOAD EXPONENT BIAS 


ADD 


Rl ,R2 


;ADD IN EXPONENT BIAS 
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LADDR 

AND 

CSLI 

CSLI 

OR 

RET 



R2,0FFH 

R1,R2 

Rl,15 

Rl,8 

RO ,R1 

Rll,Rll 



LOAD MASK 

ISOLATE 8-BIT EXPONENT 
SHIFT INTO POSITION 

... IN TWO SHIFTS 
'OR' IN NEW EXPONENT 
RETURN TO CALLER 



END OF SOURCE FILE 



END 
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